Description: Redraw an event object for flash effect (default activates)
Mapped Command: FLASH EVENT <label>
FUNCTION __FlaEventRegion(label)
   local handle := __ScanObjects(label)          // if the button does indeed exits
   if __HandleInRange(handle) > 0                // if we have a valid handle
      do case
      case _handles_[handle,06] == EventRegionObject
         msethot(handle,0,0,0,0)                 // clear the mouse hot region
      case _handles_[handle,06] == IconButtonObject
         __ClrIconButton(handle)                 // clear the icon from the screen
         __ActIconButton(label)                  // redisplay the icon
      case _handles_[handle,06] == TextButtonObject
         * ...
      endcase
   else                                          // apparently there is no object by that name
      __HandleError(NoSuchLabel,label)           // branch to the handle error routine
   endif                                         // if handle > 0 .and. handle <= maxobjects      // if successful in gettong a get area
RETURN(Void)